home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
web
/
spiderweb
/
tools
/
tie
/
history.web
< prev
next >
Wrap
Text File
|
1992-07-05
|
739b
|
26 lines
@*Job history.
We introduce a history variable that allows us to set a
return code if the operating system and the local \PASCAL\
compiler allow it. First we introduce the coded values for
the history.
@d spotless = 0
@d troublesome = 1
@d fatal = 2
@<Globals in ...@>=
@!int history;
@ We must initialize this variable at the very beginning.
@<Set initial values@>=
history=spotless;
@ At the end of the job we may want to print out the history.
@<Print the job |history|...@>=
switch ( history) {
case spotless: if (verbose) print_ln("(No errors were found.)"); break;
case troublesome: print_ln("(Pardon me, but I think I spotted something wrong.)"); break;
case fatal: print_ln("(That was a fatal error, my friend.)"); break;
}